home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / business / cntws11a.zip / GLJNLTMP.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1997-05-19  |  10KB  |  70 lines
  1. GLJNLTMP
  2.  jctrans
  3. set relation to sub_code into creditor,    stock_code into stmaster,    job_code into jobs,    prod_code into saleprod
  4. sele jobs
  5. set relation to stock_code into tempstck
  6. froom = ""
  7. toooo = ""
  8. do wiprange
  9. sele jctrans
  10. set filter to jctrans->job_code => froom .and.     jctrans->job_code =< toooo
  11. reference = "REFERENCE"
  12. dateword = "DATE"
  13. do prtbtch with "[ Detailed Work In Progress Schedule ]","wip"
  14. *report form wip_sum &&to print noeject
  15. use in
  16. ACT_CODE
  17. SUB_CODE
  18. FIRST_REF
  19. ------------------------------------------------------
  20. * NAME
  21. *   ONCLICK - Event handler for DBMITEM2
  22. *-----------------------------------------------------------------
  23. *    do wip_reps
  24. saf = set('safety')
  25. set safety off
  26. sele jobs
  27. set order to job_code
  28. sele creditor
  29. set order to sub_code
  30. sele stmaster
  31. set order to stock_code
  32. copy with production to tempstck field stock_code,descriptio
  33. use tempstck in sele() order stock_code
  34. sele saleprod
  35. set order to prod_code
  36. use jctrans in sele() order job_trans
  37. sele jctrans
  38. set relation to sub_code into creditor,    stock_code into stmaster,    job_code into jobs,    prod_code into saleprod
  39. sele jobs
  40. set relation to stock_code into tempstck
  41. froom = ""
  42. toooo = ""
  43. do wiprange
  44. sele jctrans
  45. set filter to jctrans->job_code => froom .and.     jctrans->job_code =< toooo
  46. reference = "REFERENCE"
  47. dateword = "DATE"
  48. do prtbtch with "[ Summary Work In Progress Schedule ]","wip_sum"
  49. *report form wip_sum &&to print noeject
  50. use in jctrans
  51. use in tempstck
  52. erase "tempstck.dbf"
  53. erase "tempstck.mdx"
  54. set safety &saf.
  55. RETURN
  56. PROCEDURE dtcomp     && DBMITEM1.ONCLICK
  57. *-----------------------------------------------------------------
  58. * NAME
  59. *   ONCLICK - Event handler for DBMITEM1
  60. *-----------------------------------------------------------------
  61. saf = set('safety')
  62. set safety off
  63. use compjo
  64. ACT_CODE
  65. ACT_CODE
  66. SUB_CODE
  67. SUB_CODE
  68. FIRST_REF
  69. FIRST_REF
  70.